"
Testing class
"
Class {
	#name : 'PaAbstractExampleTest',
	#superclass : 'ParametrizedTestCase',
	#instVars : [
		'option2',
		'option1'
	],
	#category : 'SUnit-Tests-Parametrized',
	#package : 'SUnit-Tests',
	#tag : 'Parametrized'
}

{ #category : 'private' }
PaAbstractExampleTest class >> isAbstract [
	^ self name = #PaAbstractExampleTest
]

{ #category : 'accessing' }
PaAbstractExampleTest >> option1 [
	^ option1
]

{ #category : 'accessing' }
PaAbstractExampleTest >> option1: aString [
	option1 := aString
]

{ #category : 'accessing' }
PaAbstractExampleTest >> option2 [
	^ option2
]

{ #category : 'accessing' }
PaAbstractExampleTest >> option2: anInteger [
	option2 := anInteger
]

{ #category : 'tests' }
PaAbstractExampleTest >> testParametersHaveValue [
	self assert: option1 isNotNil.
	self assert: option2 isNotNil
]
